(remove-overlays): Call overlay-recenter.

diff --git a/lisp/subr.el b/lisp/subr.el
index cf09264e4b10bc27499ed0d5982d2affc484a776..3fcdaaab7530c9ba079c9a3b10479de294514228 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1960,6 +1960,8 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
   "Clear BEG and END of overlays whose property NAME has value VAL.
 Overlays might be moved and/or split.
 BEG and END default respectively to the beginning and end of buffer."
+  ;; This speeds up the loops over overlays.
+  (overlay-recented (point-max))
   (unless beg (setq beg (point-min)))
   (unless end (setq end (point-max)))
   (if (< end beg)